home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_023_19xx_-_de_Side_A.d64 / lotto v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  517b  |  21 lines
  1. 10 poke53280,0:poke53281,0:print"[158]"
  2. 11 i=2:print"[147]"spc(15)"lotto":print""
  3. 12 a=int (45*rnd (1))+1
  4. 13 print a"  ";
  5. 14 b=int(((45*rnd(1))+1)):if b=a then14
  6. 15 print b"  ";
  7. 16 c=int(((45*rnd(1))+1)*3/4):if c=b or c=a then 16
  8. 17 print c"  ";
  9. 18 d=int(((45*rnd(1))+1)/i+3):if d=c or  d=b or  d=a then18
  10. 19 print d"  ";
  11. 20 e=int(((45*rnd(1))+1)/i+13):if e=d ore=c or  e=b or  e=a then 20
  12. 21 print e"  ";
  13. 22 f=int(((45*rnd(1))+1)/i+20):if f=e or f=d or f=c or f=b or f=a then22
  14. 23 print f"  ";
  15. 24 print"noch einen tip?"
  16. 25 get a$
  17. 26 if a$="n"then 40
  18. 27 if a$="j"then11
  19. 28 if a$<>"j"then25
  20. 40 sys64738
  21.